home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 May / 64er_Magazin_89-05_1989_Markt__Technik_de.d64 / illegal t&s (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  658b  |  28 lines
  1. 100 t=1:d$="[211]uchprogramm '[201]llegal [212]+[211]'
  2. 110 [153]"load"[163]8)d$"
  3. 120 print"         [196][146]rucker oder [211][146]creen
  4. 130 [161]ds$:[139]ds$[178]""[167]130
  5. 140 dr[178]0:[139]ds$[178]"d"[167]dr[178]1
  6. 150 [139]dr[178]1[167][159]4,4:[152]4," t";
  7. 160 [153]"load"[163]8)d$"
  8. 170 print" [201]nput [201]llegal [212]rack , [211]ector
  9. 180 [133]" (NULL),(NULL)";y,z
  10. 190 [153]" atnbbrechen mit '(NULL)'
  11. 200 open1,8,15,"i":open2,8,2,"#"
  12. 210 ift<36thenfors=0to16
  13. 220 ift<31thenfors=0to17
  14. 230 ift<25thenfors=0to18
  15. 240 ift<18thenfors=0to20
  16. 250 print#1,"u1 2 0 "t" "s
  17. 260 print#1,"b-p 2 0"
  18. 270 get#2,a$,b$
  19. 280 getq$:ifq$="q"then350
  20. 290 ifa$=""thena$=chr$(0)
  21. 300 ifb$=""thenb$=chr$(0)
  22. 310 a=asc(a$):b=asc(b$)
  23. 320 ifa=yandb=zthenprint" gefunden in [212]rack"t",[211]ektor"s
  24. 330 ifdr=1then:ifa=yandb=zthenprint#4,tab(10)" [199]efunden in [212]rack"t",[211]ektor"s
  25. 340 nexts:ift<35thent=t+1:goto210
  26. 345 ifdr=1thenprint#4:close4
  27. 350 close2:close1
  28.